home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Tools / vtcl / main.c next >
Encoding:
C/C++ Source or Header  |  1995-07-06  |  4.5 KB  |  122 lines

  1. /*-------------------------------------------------------------------------
  2.   Copyright (c) 1992                   The Santa Cruz Operation, Inc.
  3.   -------------------------------------------------------------------------
  4.   All rights reserved.  No part of this  program or publication may be
  5.   reproduced, transmitted, transcribed, stored  in a retrieval system,
  6.   or translated into any language or computer language, in any form or
  7.   by any  means,  electronic, mechanical, magnetic, optical, chemical,
  8.   biological, or otherwise, without the  prior written  permission of:
  9.  
  10.            The Santa Cruz Operation, Inc.  (408) 425-7222
  11.            400 Encinal St, Santa Cruz, CA  95060 USA
  12.   -------------------------------------------------------------------------
  13.  
  14.   -----------------------------------------------------------------------*/
  15. /* 
  16.  * tclXAppInit.c --
  17.  *
  18.  *      Provides a default version of the Tcl_AppInit procedure for use with
  19.  *      applications built with Extended Tcl.  This is based on the the UCB
  20.  *      Tcl file tclAppInit.c
  21.  *
  22.  *-----------------------------------------------------------------------------
  23.  * Copyright 1991-1993 Karl Lehenbauer and Mark Diekhans.
  24.  *
  25.  * Permission to use, copy, modify, and distribute this software and its
  26.  * documentation for any purpose and without fee is hereby granted, provided
  27.  * that the above copyright notice appear in all copies.  Karl Lehenbauer and
  28.  * Mark Diekhans make no representations about the suitability of this
  29.  * software for any purpose.  It is provided "as is" without express or
  30.  * implied warranty.
  31.  *-----------------------------------------------------------------------------
  32.  * $Id: tclXAppInit.c,v 1.1 1993/09/16 05:39:59 markd Exp $
  33.  *-----------------------------------------------------------------------------
  34.  * Copyright (c) 1993 The Regents of the University of California.
  35.  * All rights reserved.
  36.  *
  37.  * Permission is hereby granted, without written agreement and without
  38.  * license or royalty fees, to use, copy, modify, and distribute this
  39.  * software and its documentation for any purpose, provided that the
  40.  * above copyright notice and the following two paragraphs appear in
  41.  * all copies of this software.
  42.  * 
  43.  * IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
  44.  * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
  45.  * OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
  46.  * CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  47.  *
  48.  * THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
  49.  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
  50.  * AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
  51.  * ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
  52.  * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  53.  */
  54.  
  55. #include "tclExtend.h"
  56.  
  57.  
  58. /*
  59.  * The following variable is a special hack that allows applications
  60.  * to be linked using the procedure "main" from the Tcl library.  The
  61.  * variable generates a reference to "main", which causes main to
  62.  * be brought in from the library (and all of Tcl with it).
  63.  */
  64.  
  65. extern int main();
  66. int *tclXDummyMainPtr = (int *) main;
  67.  
  68. /*
  69.  *----------------------------------------------------------------------
  70.  *
  71.  * Tcl_AppInit --
  72.  *
  73.  *      This procedure performs application-specific initialization.
  74.  *      Most applications, especially those that incorporate additional
  75.  *      packages, will have their own version of this procedure.
  76.  *
  77.  * Results:
  78.  *      Returns a standard Tcl completion code, and leaves an error
  79.  *      message in interp->result if an error occurs.
  80.  *
  81.  * Side effects:
  82.  *      Depends on the startup script.
  83.  *
  84.  *----------------------------------------------------------------------
  85.  */
  86.  
  87. int
  88. Tcl_AppInit(interp)
  89.     Tcl_Interp *interp;         /* Interpreter for application. */
  90. {
  91.     /*
  92.      * Call the init procedures for included packages.  Each call should
  93.      * look like this:
  94.      *
  95.      * if (Mod_Init(interp) == TCL_ERROR) {
  96.      *     return TCL_ERROR;
  97.      * }
  98.      *
  99.      * where "Mod" is the name of the module.
  100.      */
  101.  
  102.     /*
  103.      * Add in Extended Tcl commands and source TclX initialization file.
  104.      */
  105.     if (TclX_Init (interp) == TCL_ERROR) {
  106.         return TCL_ERROR;
  107.     }
  108.  
  109.     if (Tcl_InitWServer (interp) == TCL_ERROR) {
  110.         return TCL_ERROR;
  111.     }
  112.     
  113.     /*
  114.      * Call Tcl_CreateCommand for application-specific commands, if
  115.      * they weren't already created by the init procedures called above.
  116.      */
  117.  
  118.     return TCL_OK;
  119. }
  120.  
  121.  
  122.